% Inpoleren test RALPH

PlotResultsCombP(1,1)

X = X1;
D = D1(1,:);

%% Plot the true data
plot(X, D, 'g');
hold on;

%% Plot the polynomial fit
T = 0:0.005:1;
[P, S] = polyfit(X, D, 15)
plot(T, polyval(P, T), 'b')

%% Plot the interpolated data
[Di Xi] = Interpolate(D,X);
plot(Xi, Di, 'r');